home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {2AD7E6E1-BEB9-4A70-BAFB-80FB5F0D7EFA}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  47 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim oX
  5. Dim lower, upper, travel
  6. Dim beingdragged
  7. oX=0
  8. lower=0
  9. upper=100
  10. travel=110
  11.  
  12. Sub Object_OnScriptEnter
  13.     beingdragged=False
  14.     value=0'initialise slider position
  15.     x=Cint(travel*(value-lower)/(upper-lower))
  16.     Object.Left=oX+x
  17. End Sub
  18.  
  19. Function Object_OnLButtonDown(x, y)
  20.     beingdragged=True
  21. End Function
  22.  
  23. Function Object_OnLButtonUp(x, y, Dragged)
  24.     beingdragged=False
  25.     s=DesktopX.ScriptObject("wmp").Control.status
  26.     If Dragged Then
  27.         If (Left(s, 7) = "Playing" Or left(s,6)="Paused") And DesktopX.ScriptObject("lstMediaType").Control.Text <> "Radio" Then    
  28.             value=Object.Left-oX
  29.             range=upper-lower
  30.             proportion=value/travel
  31.             value=Cint(lower+proportion*range)
  32.             value=Clng(value*DesktopX.ScriptObject("wmp").Control.currentmedia.duration/100)
  33.             DesktopX.ScriptObject("wmp").Control.Controls.currentPosition = value
  34.         Else
  35.             Object.left = oX
  36.     End If
  37.     End If
  38. End Function
  39.  
  40.  
  41. Sub Object_OnDrag(x,y,x2,y2)
  42.     Object.top = Object.top
  43.     If x2<oX Then Object.left=oX
  44.     If x2>oX+travel Then Object.left=oX+travel
  45. End Sub
  46. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>362</EditorLeft><EditorTop>49</EditorTop><EditorRight>1094</EditorRight><EditorBottom>908</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  47.